home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / marjun.arc / MARJUN.BAS
BASIC Source File  |  1986-07-23  |  40KB  |  635 lines
  1. 1 REM   TMJ-COLOR-H    J. C. Chen    74/9/1 - 75/2/15     for  MPF  &  IBM  PC
  2. 5 GOTO 60000
  3. 10 ON PR GOTO 11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45
  4. 11 PUT(X,Y),F1:RETURN
  5. 12 PUT(X,Y),F2:RETURN
  6. 13 PUT(X,Y),F3:RETURN
  7. 14 PUT(X,Y),F4:RETURN
  8. 15 PUT(X,Y),F5:RETURN
  9. 16 PUT(X,Y),F6:RETURN
  10. 17 PUT(X,Y),F7:RETURN
  11. 18 PUT(X,Y),F8:RETURN
  12. 19 PUT(X,Y),F9:RETURN
  13. 20 PUT(X,Y),F10:RETURN
  14. 21 PUT(X,Y),F11:RETURN
  15. 22 PUT(X,Y),F12:RETURN
  16. 23 PUT(X,Y),F13:RETURN
  17. 24 PUT(X,Y),F14:RETURN
  18. 25 PUT(X,Y),F15:RETURN
  19. 26 PUT(X,Y),F16:RETURN
  20. 27 PUT(X,Y),F17:RETURN
  21. 28 PUT(X,Y),F18:RETURN
  22. 29 PUT(X,Y),F19:RETURN
  23. 30 PUT(X,Y),F20:RETURN
  24. 31 PUT(X,Y),F21:RETURN
  25. 32 PUT(X,Y),F22:RETURN
  26. 33 PUT(X,Y),F23:RETURN
  27. 34 PUT(X,Y),F24:RETURN
  28. 35 PUT(X,Y),F25:RETURN
  29. 36 PUT(X,Y),F26:RETURN
  30. 37 PUT(X,Y),F27:RETURN
  31. 38 PUT(X,Y),F28:RETURN
  32. 39 PUT(X,Y),F29:RETURN
  33. 40 PUT(X,Y),F30:RETURN
  34. 41 PUT(X,Y),F31:RETURN
  35. 42 PUT(X,Y),F32:RETURN
  36. 43 PUT(X,Y),F33:RETURN
  37. 44 PUT(X,Y),F34:RETURN
  38. 45 PUT(X,Y),F35:RETURN
  39. 46 RETURN
  40. 50 GOSUB 41000
  41. 60 B$=INKEY$:IF B$="" THEN LOCATE 3,38:PRINT "";:LOCATE 3,38:PRINT " ";:GOTO 60 ELSE LINE(285,8)-(319,124),O,BF:RETURN
  42. 500 GOSUB 50000
  43. 510 LOCATE AA*5,1:PRINT "34;
  44. 2000 FOR S=U TO LA:A$="":Z=FRE(0)
  45. 2010 IF S>56 THEN 30000
  46. 2020 LOCATE 1,5:PRINT LA-16-S"> ";
  47. 2030 C=A:GOSUB 41100
  48. 2150 FOR J=U TO 17
  49. 2160 IF A(A,J)=O THEN A(A,J)=B(S):A(A,J+U)=O:S(J)=B(S):S(J+U)=O:GOTO 2240
  50. 2170 IF B(S)>A(A,J-U) AND B(S)<=A(A,J) GOTO 2200
  51. 2180 S(J)=A(A,J):NEXT J
  52. 2190 GOTO 2240
  53. 2200 Z=FRE(0):FOR K=17 TO J+U STEP -U
  54. 2210 IF A=V AND A(A,K-U)>O AND K>J THEN Y=146:X=16*K-20:PR=A(A,K-U):LINE(X-U,Y)-(X+13,Y+15),C4,BF:X=16*K-V:LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10
  55. 2220 A(A,K)=A(A,K-U):S(K)=A(A,K)
  56. 2230 NEXT K:A(A,J)=B(S):S(J)=B(S)
  57. 2240 Z=FRE(0):Z=FRE(Z$):IF A=V THEN 20000
  58. 2250 GOSUB 10000:IF MM=U THEN S=S+U:GOTO 2150
  59. 2260 IF X(A)+X=5 AND Y=U THEN 30000
  60. 2270 GOSUB 19000:IF P1=U THEN S=S+U:GOTO 2150
  61. 2280 J2=J
  62. 2400 L1=U:EA=FRE(0):EA=O:E(U)=O:E(3)=O:E3=O
  63. 2410 C=A+L1:IF C>V THEN C=C-V
  64. 2415 A$=INKEY$:IF Q$="n" AND A$=" " THEN GOSUB 50 ELSE IF A$="f" OR A$="p" OR A$="k" OR A$="e" THEN B$=A$
  65. 2420 IF A<>C AND C<>A+U AND A-C<>3 THEN IF XF(C)>2 GOTO 2580
  66. 2430 Q=16-3*X(C):IF ZX>27 THEN FOR I=Q TO U STEP -U:IF A(C,I)=ZX THEN 2480
  67. 2435 IF ZX>27 THEN IF A(C,I)<ZX THEN 2580
  68. 2440 IF ZX>27 THEN NEXT :GOTO 2580
  69. 2450 FOR I=U TO 16:IF A(C,I)=ZX OR A(C,I)=ZX-U OR A(C,I)=ZX+U GOTO 2480
  70. 2460 IF A(C,I)>ZX GOTO 2580
  71. 2470 NEXT :GOTO 2580
  72. 2480 FOR I=U TO 17:IF A(C,I)=O THEN S(I)=ZX:S(I+U)=O:GOTO 2530
  73. 2490 IF ZX>A(C,I-U) AND ZX<=A(C,I) GOTO  2510
  74. 2500 S(I)=A(C,I):NEXT I
  75. 2510 FOR J=17 TO I+U STEP -U:S(J)=A(C,J-U)
  76. 2520 NEXT :S(I)=ZX
  77. 2530 GOSUB 10000
  78. 2540 IF C=V AND X(V)+X=5 AND Y=U GOTO 22000
  79. 2550 IF X(C)+X=5 AND Y=U GOTO 30000
  80. 2580 IF L1<3 THEN L1=L1+U:GOTO 2410
  81. 2600 L2=U:L=FRE(0):L=O:R=O
  82. 2610 C=A+L2:IF C>V THEN C=C-V
  83. 2615 A$=INKEY$:IF Q$="n" AND A$=" " THEN GOSUB 50 ELSE IF A$="p" OR A$="k" OR A$="e" THEN B$=A$
  84. 2620 IF C=V THEN 23000
  85. 2630 FOR J=U TO 16:IF A(C,J)=ZX AND A(C,J+U)=ZX THEN 31000
  86. 2640 IF A(C,J+U)>ZX THEN 2660
  87. 2650 NEXT
  88. 2660 IF L2<3 THEN L2=L2+U:GOTO 2610
  89. 3000 J=FRE(0):J=O:IF ZX>27 THEN 4000
  90. 3010 A$=INKEY$:IF Q$="n" AND A$=" " THEN GOSUB 50 ELSE IF A$="e" THEN B$=A$
  91. 3020 C=A+U:IF C>V THEN C=C-V
  92. 3030 IF C<>V AND E(U)>O AND E(3)>O THEN GOSUB 32000:GOTO 2400
  93. 3040 IF C<>V GOTO 4000
  94. 3100 IF C=V THEN IF E(U)>O AND E(3)>O THEN 24000
  95. 3110 L1=O:L2=O:R1=O:R2=O:FOR J=U TO 16
  96. 3120 IF A(V,J)=O OR A(V,J)>N1 GOTO 3190
  97. 3130 IF A(V,J)<M1 THEN 3180
  98. 3140 IF A(V,J)=ZX-2 THEN L2=U
  99. 3150 IF A(V,J)=ZX-U THEN L1=U
  100. 3160 IF A(V,J)=ZX+U THEN R1=U
  101. 3170 IF A(V,J)=ZX+2 THEN R2=U
  102. 3180 NEXT J
  103. 3190 IF L1+R1=2 OR L1+L2=2 OR R1+R2=2 GOTO 24110
  104. 4000 A$=INKEY$:IF Q$="n" AND A$=" " THEN GOSUB 50
  105. 4010 Z=FRE(0):Y=39*A-24:LINE(0,Y)-(7,Y+6),0,BF
  106. 4020 A=A+U:IF A>V THEN A=A-V
  107. 4030 ZX=O:E3=O:NEXT S
  108. 4040 GOTO 30000
  109. 10000 X=FRE(0):X=FRE(Z$):X=0:Y=X:K=X:M=X:N=X:Z=X:Z1=X:Z3=X:MM=X:I=U
  110. 10020 IF S(I)=0 THEN RETURN
  111. 10030 IF S(I)>27 GOTO 13500
  112. 10040 IF S(I)<10 THEN M=U:N=9
  113. 10050 IF S(I)>9 AND S(I)<19 THEN M=10:N=18
  114. 10060 IF S(I)>18 AND S(I)<28 THEN M=19:N=27
  115. 10100 IF S(I+U)-S(I)>U OR S(I+U)>N OR S(I+U)=O GOTO 10600
  116. 10110 IF S(I+U)=S(I) GOTO 11000
  117. 10120 IF S(I+2)-S(I+U)>U OR S(I+2)>N OR S(I+2)=O GOTO 10500
  118. 10130 IF S(I+2)<>S(I+U) THEN X=X+U : GOSUB 17500:I=I+3:GOTO 10020
  119. 10200 IF S(I+3)-S(I+2)>U OR S(I+3)>N OR S(I+3)=O GOTO 10700
  120. 10210 IF S(I+3)=S(I+2) GOTO 10300
  121. 10220 J=I+3:GOSUB 16000:IF FL=U GOTO 10700
  122. 10230 J=I+2:GOSUB 16000:IF FL=U AND S(I)<>ZX AND S(I+U)<>ZX AND S(I+2)<>ZX GOTO 10500
  123. 10240 X=X+U:T=S(I+2):S(I+2)=S(I+3):S(I+3)=T: GOSUB 17500:I=I+3:GOTO 10020
  124. 10300 IF S(I+V)-S(I+3)>U OR S(I+V)>N OR S(I+V)=O GOTO 10600
  125. 10310 IF S(I+V)=S(I+3) GOTO 10400
  126. 10320 IF A=C THEN J=I+V : GOSUB 16000:IF FL=U THEN Z1=S(I):I=I+3:GOTO 17000
  127. 10330 X=X+U:T=S(I+2):S(I+2)=S(I+V):S(I+V)=T: GOSUB 17500:I=I+3:GOTO 10020
  128. 10400 IF S(I+5)-S(I+V)>U OR S(I+5)>N OR S(I+5)=O GOTO 10600
  129. 10410 X=X+U:T=S(I+2):S(I+2)=S(I+5):S(I+5)=T: GOSUB 17500:I=I+3:GOTO 10020
  130. 10500 IF A=C THEN IF Z=O AND Z3=O THEN Z3=S(I+U)
  131. 10510 IF A=C THEN I=I+2:GOTO 10020
  132. 10520 IF A-C<>3 AND C<>A+U THEN RETURN
  133. 10530 IF C=V OR E(U)<M THEN I=I+2:GOTO 10020
  134. 10540 IF S(I)-2>ZX THEN RETURN
  135. 10550 IF S(I)=ZX OR S(I+U)=ZX GOTO 10580
  136. 10560 IF E(U)>O AND S(I+U)-E(U)=2 AND S(I+U)-E(3)=U AND E(U)>=M THEN E(U)=O:RETURN
  137. 10570 I=I+2:GOTO 10020
  138. 10580 IF Z=O OR Z3=O THEN E(U)=O:RETURN
  139. 10590 I=I+2:GOTO 10020
  140. 10600 IF A=C THEN IF S(I)-S(I-U)<3 AND S(I-U)<>Z(Z) AND S(I-U)>=M THEN Z3=S(I):I=I+U:GOTO 10020
  141. 10610 IF A=C THEN Z1=S(I):GOTO 17000
  142. 10620 IF A-C<>3 AND C<>A+U THEN RETURN
  143. 10650 IF C=V OR E(U)<M THEN I=I+U:GOTO 10020
  144. 10660 IF S(I)=ZX OR S(I)-3=ZX THEN E(U)=O:RETURN
  145. 10670 I=I+U:GOTO 10020
  146. 10700 IF A=C THEN IF Z=O THEN Z3=S(I+U):IF Y=O THEN Z3=S(I)
  147. 10710 IF A=C THEN I=I+3:GOTO 10020
  148. 10720 IF A-C<>3 AND C<>A+U THEN RETURN
  149. 10760 IF E(U)=O OR C=V THEN I=I+3:GOTO 10020
  150. 10770 IF S(I)=ZX THEN E(U)=O:RETURN
  151. 10780 IF S(I)-E(U)=2 AND S(I)-E(3)=U AND E(U)>=M THEN E(U)=O:RETURN
  152. 10790 I=I+3:GOTO 10020
  153. 11000 IF S(I+2)-S(I+U)>U OR S(I+2)>N OR S(I+2)=O GOTO 11500
  154. 11010 IF S(I+2)=S(I+U) GOTO 12000
  155. 11020 IF S(I+3)-S(I+2)>U OR S(I+3)>N OR S(I+3)=O GOTO 11600
  156. 11030 IF S(I+3)=S(I+2) GOTO 11100
  157. 11040 IF A<>C AND C<>V THEN J=I+U:GOSUB 16000:IF FL=U AND S(I)=ZX THEN E(U)=O:RETURN
  158. 11050 J=I+2:GOSUB 16000:IF FL=U THEN Y=Y+U:I=I+2:GOTO 10020
  159. 11060 IF A-C=3 AND S(I)=ZX THEN E(U)=O:RETURN
  160. 11070 IF C=A+U AND C<>V AND S(I)=ZX THEN E(U)=O:RETURN
  161. 11080 IF A=C AND Z=O AND Z3=O THEN Z3=S(I):I=I+V:GOTO 10020
  162. 11090 I=I+U:GOSUB 17500:I=I+3:GOTO 10020
  163. 11100 IF S(I+V)-S(I+3)>U OR S(I+V)>N OR S(I+V)=O GOTO 11500
  164. 11110 IF S(I+V)<>S(I+3) THEN X=X+U:T=S(I+U):S(I+U)=S(I+3):S(I+3)=T:T=S(I+2):S(I+2)=S(I+V):S(I+V)=T:GOSUB 17500:I=I+3:GOTO 10020
  165. 11200 IF S(I+5)-S(I+4)>U OR S(I+5)>N OR S(I+5)=O GOTO 11500
  166. 11210 IF S(I+5)=S(I+4) GOTO 11300
  167. 11220 IF Y>O THEN X=X+U:T=S(I+U):S(I+U)=S(I+3):S(I+3)=T:T=S(I+2):S(I+2)=S(I+5):S(I+5)=T:GOSUB 17500:I=I+3:GOTO 10020
  168. 11230 X=X+U:Y=Y+U:I=I+5:GOTO 10020
  169. 11300 IF S(I+6)-S(I+5)>U OR S(I+6)>N OR S(I+6)=O GOTO 11500
  170. 11310 J=I+2:GOSUB 16000:IF FL=U AND Y<2 THEN Y=Y+U:I=I+2:GOTO 10020
  171. 11320 IF S(I+7)=S(I+6) GOTO 11340
  172. 11330 IF Y<2 THEN Y=Y+U:I=I+2:GOTO 10020
  173. 11340 X=X+U:T=S(I+U):S(I+U)=S(I+3):S(I+3)=T:T=S(I+2):S(I+2)=S(I+6):S(I+6)=T:GOSUB 17500:I=I+3:GOTO 10020
  174. 11500 IF Y>O THEN IF A=C AND Z3=O THEN Z3=S(I):I=I+2:GOTO 10020
  175. 11510 Y=Y+U:I=I+2:GOTO 10020
  176. 11600 IF A=C AND Z=O AND S(I+2)<>ZX THEN Z3=S(I+2):I=I+3:GOTO 10020
  177. 11610 I=I+3:GOTO 10020
  178. 12000 IF S(I+3)-S(I+2)>U OR S(I+3)>N OR S(I+3)=O THEN X=X+U:I=I+3:GOTO 10020
  179. 12010 IF S(I+3)=S(I+2) GOTO 13000
  180. 12020 J=I+U:GOSUB 16000:IF FL=U AND Z=O THEN Z1=S(I):GOTO 17000
  181. 12030 J=I+2:GOSUB 16000:IF FL=U AND Y<3 THEN Y=Y+U:I=I+2:GOTO 10020
  182. 12040 X=X+U:I=I+3:GOTO 10020
  183. 13000 IF S(I+V)-S(I+3)>U OR S(I+V)>N OR S(I+V)=O GOTO 18000
  184. 13010 J=I+U:GOSUB 16000:IF FL=U THEN Z1=S(I):GOTO 17000
  185. 13020 J=I+2:GOSUB 16000:IF FL=U AND Y<2 THEN Y=Y+U:I=I+2:GOTO 10020
  186. 13030 J=I+3:GOSUB 16000:IF FL=U THEN X=X+U:GOSUB 17500:I=I+3:GOTO 10020
  187. 13040 GOTO 18000
  188. 13500 IF S(I+3)=S(I) GOTO 18000
  189. 13510 IF S(I+2)=S(I) THEN X=X+U:GOSUB 17500:I=I+3:GOTO 10020
  190. 13520 IF S(I+U)=S(I) THEN 13600
  191. 13530 Z1=S(I):GOTO 17000
  192. 13600 IF Y>O THEN IF Z=O AND Z3=O THEN Z1=S(I):GOTO 17000
  193. 13610 Y=Y+U:I=I+2:GOTO 10020
  194. 16000 FL=FRE(0):FL=FRE(Z$):FL=O:SA=S(J):SB=U
  195. 16010 FOR K=U TO 16
  196. 16020 IF S(J+K)-S(J+K-U)>U OR S(J+K)>N OR S(J+K)=O GOTO 16050
  197. 16030 SA=SA+S(J+K):SB=SB+U
  198. 16040 NEXT K
  199. 16050 IF INT(SB/3)*3<>SB THEN RETURN
  200. 16060 IF SA/3=INT(SA/3) THEN FL=U
  201. 16070 RETURN
  202. 17000 IF A<>C AND C<>A+U AND A-C<>3 THEN RETURN
  203. 17010 IF Z1=ZX THEN Z1=O:I=I+U:GOTO 10020
  204. 17020 Z=Z+U:Z(Z)=Z1:Z3=Z1:Z1=O
  205. 17030 IF A=C THEN XF(A)=Z
  206. 17040 I=I+U:GOTO 10020
  207. 17500 IF C<>A+U AND A-C<>3 THEN RETURN
  208. 17510 IF ZX<M OR ZX>N THEN RETURN
  209. 17520 IF S(I)=ZX THEN E(U)=S(I+U):E(3)=S(I+2)
  210. 17530 IF S(I+U)=ZX THEN E(U)=S(I):E(3)=S(I+2)
  211. 17540 IF S(I+2)=ZX THEN  E(U)=S(I):E(3)=S(I+U)
  212. 17550 IF C<>V OR E(U)=O OR E3=U THEN RETURN
  213. 17560 E3=O:Q=O:IF I=U OR S(I-U)<M OR S(I)-S(I-U)>U THEN Q=U:IF S(I)=ZX THEN E3=U:RETURN
  214. 17570 Q1=O:IF S(I+3)=O OR S(I+3)>N OR S(I+3)-S(I+2)>U THEN Q1=V:IF ZX=S(I+2) THEN E3=U
  215. 17580 IF Q>O AND Q1>O THEN E3=U
  216. 17590 RETURN
  217. 18000 MM=FRE(Z):MM=FRE(Z$):MK=O:MM=O
  218. 18010 IF A=C AND S(I)=S(I+U) AND S(I)=S(I+2) AND S(I)=S(I+3) GOTO 18100
  219. 18020 IF S(I)=S(I+U) AND S(I)=S(I+2) THEN X=X+U:I=I+3:GOTO 10020
  220. 18030 I=I+U:GOTO 10020
  221. 18100 X(C)=X(C)+U:IF C=V GOTO 18120
  222. 18110 IF X(C)=5 THEN PX(C)=PX(C)+U:PY(C)=O:GOTO 18140
  223. 18120 IF X(C)/2=INT(X(C)/2) THEN PY(C)=O:GOTO 18140
  224. 18130 PX(C)=PX(C)+U:PY(C)=U
  225. 18140 IF A=V THEN PY(V)=PY(V)+U:IF PY(V)=2 THEN PY(V)=O
  226. 18150 IF A=V THEN GOSUB 25100:X=48*(5-X(V))+42:LINE(X,164)-(X+50,170),C4,BF:GOTO 18300
  227. 18160 MK(C,X(C))=S(I)
  228. 18300 FOR K=U TO 14: IF A(C,K)=S(I) GOTO 18400
  229. 18310 NEXT K
  230. 18400 FOR J=K TO 17:A(C,J)=A(C,J+V):NEXT
  231. 18410 IF A=V THEN FOR K=U TO V:PR=S(I):X=16*(19-V*PX(V)+K)-V:Y=39*V-(18*PY(V))-10:LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10:NEXT K:GOTO 18430
  232. 18420 FOR K=U TO V:X=16*(19-V*PX(C)+K)-36:Y=39*C-(18*PY(C))-10:LINE(X+U,Y)-(X+11,Y+15),3,BF:LINE(X,Y+U)-(X+12,Y+14),3,B:SOUND 200+K*50,.5*SO:NEXT
  233. 18430 IF A=V THEN GOSUB 25000
  234. 18440 IF S(I)>27 THEN W(C)=W(C)+10
  235. 18450 MM=U:I=I+V:GOTO 10020
  236. 19000 ZX=FRE(0):ZX=FRE(Z$):ZX=O:P1=O:Z(Z+U)=O
  237. 19010 IF Z=O AND Z3>O THEN ZX=Z3:GOTO 19300
  238. 19020 IF Z=O THEN ZX=A(A,U):GOTO 19300
  239. 19030 IF Z(Z)>27 OR Z=U THEN ZX=Z(Z):GOTO 19300
  240. 19100 FOR J=V TO 0 STEP -U
  241. 19110 FOR I=Z TO U STEP -U
  242. 19120 Z5=INT((Z(I)-U)/9)*9:IF Z(I)-Z5=5-J OR Z(I)-Z5=5+J THEN ZX=Z(I):GOTO 19300
  243. 19140 NEXT I,J
  244. 19150 ZX=Z(U):IF ZX=O THEN ZX=A(A,U)
  245. 19300 Z=FRE(0):Z=FRE(Z$):FOR K=U TO 5:PO=U:IF K=2 OR K=V OR K=5 THEN PO=O
  246. 19310 IF P(A,K)=ZX THEN X=220-64*INT((K-U)/2):Y=39*A-10-18*PO:P1=U:PR=ZX:SOUND 400,V*SO:LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10:GOTO 19430
  247. 19320 NEXT K
  248. 19400 C(A)=C(A)+U:IF C(A)>8 THEN C(A)=U
  249. 19410 X=16*C(A)-V:Y=39*C-28:LINE(X,Y)-(X+29,Y+15),C1,BF
  250. 19420 PR=ZX:SOUND 400,U*SO:LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10
  251. 19430 B$=""
  252. 19500 Z=FRE(0):Z=FRE(Z$):Z=17-3*X(A):FOR J=U TO Z:IF A(A,J)=ZX THEN B=J
  253. 19510 NEXT
  254. 19520 FOR K=B TO Z:A(A,K)=A(A,K+U):NEXT K
  255. 19530 FOR K=Z TO 17:A(A,K)=O:NEXT
  256. 19600 IF ZX<10 THEN M1=U:N1=9
  257. 19610 IF ZX>9 AND ZX<19 THEN M1=10:N1=18
  258. 19620 IF ZX>18 AND ZX<28 THEN M1=19:N1=27
  259. 19630 RETURN
  260. 20000 Z=FRE(0):X=16*J-V:Y=39*A-10:LINE(X-U,Y)-(X+13,Y+15),O,BF:PR=A(A,J):GOSUB 10:J1=J
  261. 20010 GOSUB 10000:IF MM=U THEN S=S+U:GOTO 2150
  262. 20020 IF X(V)+X=5 AND Y=U GOTO 20050
  263. 20030 GOTO 21000
  264. 20050 A$=INKEY$:IF Q$="n" AND A$=" " THEN GOSUB 50
  265. 20060 IF Q$="n" AND B$="f" GOTO 30000
  266. 20070 IF Q$="n" AND A$="f" GOTO 30000
  267. 20080 IF Q$="n" GOTO 21000
  268. 20100 GOSUB 40600
  269. 20110 X=16*J1-V:Y=39*A-10:PR=A(A,J1):GOSUB 10:GOSUB 10:IF A$="" THEN A$=INKEY$:GOTO 20110
  270. 20120 LINE(285,9)-(319,124),O,BF:IF A$="y" THEN 30000
  271. 20130 IF A$=" " THEN 21000
  272. 20140 SOUND 300,3*SO:A$=INKEY$:GOTO 20100
  273. 21000 Z=FRE(0):Z=FRE(Z$):J=J1:P1=O
  274. 21010 A$=INKEY$:IF Q$="n" AND A$=" " THEN GOSUB 50
  275. 21020 GOSUB 40100
  276. 21030 IF J1>O THEN X=16*J-V:Y=39*A-10:PR=A(V,J):GOSUB 10:GOSUB 10
  277. 21040 IF A$="" THEN A$=INKEY$:GOTO 21030
  278. 21100 J1=O
  279. 21110 LINE(285,9)-(319,124),0,BF
  280. 21120 GOSUB 21300:IF A(V,ZS)=O THEN J1=J:SOUND 300,3*SO:GOTO 21000
  281. 21130 PUT(16*ZS-V,163),F35
  282. 21140 IF Q$="n" THEN FOR I=U TO 150:NEXT :GOTO 21500
  283. 21150 GOSUB 40200
  284. 21160 A$=INKEY$:IF A$="" THEN 21160
  285. 21170 IF A$=" " THEN LINE(285,9)-(319,124),0,BF:GOTO 21500
  286. 21180 PUT(16*ZS-V,163),F35:LINE(285,9)-(319,124),0,BF:GOTO 21120
  287. 21300 ZS=FRE(0):ZS=O:FOR I=U TO 17:IF A$=A$(I) THEN ZS=I:RETURN
  288. 21310 NEXT :RETURN
  289. 21500 Z=FRE(0):PUT(16*ZS-V,163),F35
  290. 21510 IF A(V,ZS)=O THEN 21000
  291. 21520 ZX=A(V,ZS):C(V)=C(V)+U
  292. 21530 IF C(V)>10 THEN C(V)=U:LINE(11,128)-(42,143),C4,BF
  293. 21540 FOR K=U TO 5:IF P(V,K)=ZX THEN X=252-64*INT((K-U)/2):Y=128+18*(K-INT(K/2)*2):PR=ZX:SOUND 400,V*SO:LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10:P1=U:C(V)=C(V)-U:GOTO 21570
  294. 21550 NEXT:Z=FRE(0)
  295. 21560 X=16*(C(V)+U)-V:LINE(X-U,128)-(X+13,143),C4,BF:X=16*C(V)-V:Y=128:PR=ZX:LINE(X-U,Y)-(X+13,Y+15),O,BF:SOUND 400,U*SO:GOSUB 10
  296. 21570 X=16*ZS-V:Y=146:PR=ZX:GOSUB 10
  297. 21580 FOR K=ZS TO 17:IF A(A,K+U)=O THEN A(A,K)=O:LINE(16*K-5,146)-(16*K+13,161),C4,BF:GOTO 21610
  298. 21590 X=16*K+12:Y=146:LINE(X-U,Y)-(X+13,Y+15),C4,BF
  299. 21600 A(A,K)=A(A,K+U):X=16*K-V:PR=A(A,K):LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10:NEXT
  300. 21610 A$=""
  301. 21620 IF P1=U THEN S=S+U:GOTO 2150
  302. 21630 GOSUB 19600:GOTO 2400
  303. 22000 Z=FRE(0):A$=INKEY$:IF Q$="n" AND A$=" " THEN GOSUB 50
  304. 22010 IF Q$="n" AND B$="f" GOTO 30000
  305. 22020 IF Q$="n" AND A$="f" GOTO 30000
  306. 22030 IF Q$="n" GOTO 2580
  307. 22050 GOSUB 40600
  308. 22060 X=16*C(A)-V:Y=39*A-28:PR=ZX:GOSUB 10:GOSUB 10:IF A$="" THEN A$=INKEY$:GOTO 22060
  309. 22070 LINE(285,9)-(319,124),O,BF:IF A$=" " THEN 2580
  310. 22080 IF A$="y" THEN 30000
  311. 22090 SOUND 300,3*SO:A$=INKEY$:GOTO 22050
  312. 23000 Z=FRE(Z):Z=FRE(Z$):J1=O:FOR J=U TO 14:IF A(V,J)=ZX AND A(V,J+2)=ZX GOTO 23020
  313. 23010 NEXT :GOTO 23100
  314. 23020 A$=INKEY$:IF Q$="n" AND A$=" " THEN GOSUB 50
  315. 23025 IF Q$="n" AND B$="k" GOTO 23200
  316. 23030 IF Q$="n" AND B$="p" GOTO 23500
  317. 23035 IF Q$="n" AND A$="k" GOTO 23200
  318. 23040 IF Q$="n" AND A$="p" GOTO 23500
  319. 23050 IF Q$="n" GOTO 2660
  320. 23060 GOSUB 40300
  321. 23070 X=16*C(A)-V:Y=39*A-28:PR=ZX:GOSUB 10:GOSUB 10:IF A$="" THEN A$=INKEY$:GOTO 23070
  322. 23080 LINE(285,9)-(319,124),O,BF:IF A$=" " THEN 23100
  323. 23085 IF A$="y" THEN 23200
  324. 23090 SOUND 300,3*SO:A$=INKEY$:GOTO 23060
  325. 23100 FOR J=U TO 15:IF A(V,J)=ZX AND A(V,J+U)=ZX THEN J2=U:GOTO 23120
  326. 23110 NEXT :GOTO 2660
  327. 23120 IF Q$="n" AND B$="p" GOTO 23500
  328. 23125 A$=INKEY$:IF Q$="n" AND A$=" " THEN GOSUB 50
  329. 23130 IF Q$="n" AND A$="p" GOTO 23500
  330. 23140 IF Q$="n" GOTO 2660
  331. 23150 GOSUB 40400
  332. 23160 X=16*C(A)-V:Y=39*A-28:PR=ZX:GOSUB 10:GOSUB 10:IF A$="" THEN A$=INKEY$:GOTO 23160
  333. 23170 LINE(285,9)-(319,124),O,BF:IF A$="y" THEN 23500
  334. 23180 IF A$=" " THEN 2660
  335. 23190 SOUND 300,3*SO:A$=INKEY$:GOTO 23150
  336. 23200 Z=FRE(0):Y=39*A-24:LINE(0,Y)-(7,Y+6),O,BF
  337. 23210 X=16*C(A)-V:Y=39*A-28:LINE(X-U,Y)-(X+13,Y+15),C1,BF:C(A)=C(A)-U
  338. 23220 A=C:GOSUB 41100
  339. 23230 Y=146:FOR K=O TO 2:X=16*(J+K)-V:LINE(X-U,Y)-(X+13,Y+15),C4,BF:NEXT
  340. 23240 FOR K=J TO 16:IF A(A,K+3)=O GOTO 23260
  341. 23250 X=16*K+44:Y=146:LINE(X-U,Y)-(X+13,Y+15),C4,BF
  342. 23260 A(A,K)=A(A,K+3):IF A(A,K)=O GOTO 23280
  343. 23270 X=16*K-V:Y=146:PR=A(A,K):LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10
  344. 23280 NEXT K
  345. 23290 X(V)=X(V)+U:IF ZX>27 THEN W(V)=W(V)+10
  346. 23300 IF X(V)/2=INT(X(V)/2) THEN PY(V)=U:GOTO 23320
  347. 23310 PX(V)=PX(V)+U:PY(V)=O
  348. 23320 Z=FRE(0):Y=146-(18*PY(V)):FOR K=U TO V:X=16*(19-4*PX(V)+K)-V:PR=ZX:SOUND 200+K*50,.5*SO:LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10:NEXT
  349. 23330 X=48*(5-X(V))+42:LINE(X,164)-(X+50,170),C4,BF
  350. 23340 S=S+U:GOTO 2150
  351. 23500 Z=FRE(0):Y=39*A-24:LINE(0,Y)-(7,Y+6),0,BF
  352. 23510 X=16*C(A)-V:Y=39*A-28:LINE(X-U,Y)-(X+13,Y+15),C1,BF:C(A)=C(A)-U
  353. 23520 A=C:GOSUB 41100
  354. 23530 Y=146:FOR K=O TO U:X=16*(J+K)-V:LINE(X-U,Y)-(X+13,Y+15),C4,BF:NEXT
  355. 23540 FOR K=J TO 16:IF A(A,K+2)=O GOTO 23560
  356. 23550 X=16*K+28:Y=146:LINE(X-U,Y)-(X+13,Y+15),C4,BF
  357. 23560 A(A,K)=A(A,K+2):IF A(A,K)=O GOTO 23580
  358. 23570 X=16*K-V:Y=146:PR=A(A,K):LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10
  359. 23580 NEXT K
  360. 23590 X(V)=X(V)+U:P(V,X(V))=ZX:IF ZX>27 THEN W(V)=W(V)+10
  361. 23600 IF X(V)/2=INT(X(V)/2) THEN PY(V)=U:GOTO 23620
  362. 23610 PX(V)=PX(V)+U:PY(V)=O
  363. 23620 Z=FRE(0):Y=146-(18*PY(V)):FOR K=U TO 3:X=16*(20-4*PX(V)+K)-V:PR=ZX:SOUND 250+K*50,.5*SO:LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10:NEXT
  364. 23630 X=48*(5-X(V))+42:LINE(X,164)-(X+50,170),C4,BF
  365. 23640 GOTO 21000
  366. 24000 Z=FRE(Z):Z=FRE(Z$):IF E(U)=O OR E(3)=O GOTO 4000
  367. 24010 IF (E(U)+E(3)+ZX)/3<>INT((E(U)+E(3)+ZX)/3) GOTO 4000
  368. 24100 A$=INKEY$:IF Q$="n" AND A$=" " THEN GOSUB 50
  369. 24110 IF Q$="n" AND B$="e" GOTO 24200
  370. 24120 IF Q$="n" AND A$="e" GOTO 24200
  371. 24130 IF Q$="n" GOTO 4000
  372. 24150 XX=O:J2=N:GOSUB 40500:B1=O:B2=O:BX(U)=O:BX(3)=O
  373. 24160 X=16*C(3)-V:Y=89:PR=ZX:GOSUB 10:GOSUB 10:IF A$="" THEN A$=INKEY$:GOTO 24160
  374. 24170 LINE(285,9)-(319,124),0,BF: IF A$=" " THEN 4000
  375. 24180 IF A$="y" THEN 24200
  376. 24190 SOUND 300,3*SO:A$=INKEY$:GOTO 24150
  377. 24200 IF E3=U THEN 24800
  378. 24210 GOSUB 40900
  379. 24220 A$=INKEY$:IF A$="" THEN 24220
  380. 24230 LINE(285,9)-(319,124),O,BF:GOSUB 21300
  381. 24240 IF A(V,ZS)=O OR A(V,ZS)<M1 OR A(V,ZS)>N1 OR ABS(A(V,ZS)-ZX)>2 THEN J2=N:GOTO 24130
  382. 24250 B1=ZS:PUT(16*B1-V,163),F35
  383. 24260 BX(U)=A(V,B1):BX(3)=O
  384. 24300 Z=FRE(0):FOR I=U TO 5:IF A(V,B1+I)>N1 OR A(V,B1+I)<M1 OR A(V,B1+I)-A(V,B1)>2 OR A(V,B1+I)=O THEN PUT(16*ZS-V,163),F35:GOTO 24100
  385. 24310 IF A(V,B1+I)=ZX GOTO 24330
  386. 24320 IF A(V,B1+I)-A(V,B1)=U OR A(V,B1+I)-A(V,B1)=2 THEN BX(3)=A(V,B1+I):B2=B1+I:GOTO 24400
  387. 24330 NEXT
  388. 24400 PUT(16*B1-V,163),F35
  389. 24410 IF BX(3)=O THEN X=16*B1:LINE(X,165)-(X+10,169),0,BF:GOTO 24100
  390. 24500 IF (BX(U)+BX(3)+ZX)/3<>INT((BX(U)+BX(3)+ZX)/3) THEN J2=N:GOTO 24100
  391. 24510 X=16*C(3)-V:Y=89:LINE(X-U,Y)-(X+13,Y+15),C1,BF:C(3)=C(3)-U:Y=39*A-24:LINE(0,Y)-(7,Y+6),O,BF:A=C:GOSUB 41100
  392. 24520 BX(2)=ZX:X(A)=X(A)+U:X=16*B1-V:LINE(X-U,146)-(X+13,161),C4,BF:X=16*B2-V:LINE(X-U,146)-(X+13,161),C4,BF
  393. 24530 Z=FRE(0):FOR K=B1 TO 16:IF K+U=B2 GOTO 24550
  394. 24540 X=16*K+12:Y=146:LINE(X-U,Y)-(X+13,Y+15),C4,BF:A(A,K)=A(A,K+U):X=16*K-V:LINE(X-U,Y)-(X+13,Y+15),O,BF:PR=A(A,K):GOSUB 10:NEXT K
  395. 24550 Z=FRE(0):FOR J=K TO 16:IF A(A,J+2)=O THEN A(A,J)=O:GOTO 24570
  396. 24560 X=16*J+28:Y=146:LINE(X-U,Y)-(X+13,Y+15),C4,BF:A(A,J)=A(A,J+2):X=16*J-V:PR=A(A,J):LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10
  397. 24570 NEXT J:IF X(A)=2 OR X(A)=V THEN PY(A)=U:GOTO 24600
  398. 24580 PX(V)=PX(V)+U:PY(V)=O
  399. 24600 Y=146-(18*PY(V)):FOR J=U TO 3:X=16*(20-V*PX(V)+J)-V:PR=BX(J):SOUND PR*100,U*SO:SOUND 300*J,U*SO:LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10:NEXT
  400. 24610 X=48*(5-X(V))+42:LINE(X,164)-(X+50,170),C4,BF
  401. 24620 GOTO 21000
  402. 24800 BX(U)=E(U):BX(3)=E(3)
  403. 24810 Z=FRE(0):FOR J=U TO 16:IF A(C,J)=E(U) THEN B1=J:GOTO 24830
  404. 24820 NEXT J
  405. 24830 FOR K=J TO 16:IF A(C,K)=E(3) THEN B2=K:GOTO 24510
  406. 24840 NEXT K
  407. 24850 GOTO 24210
  408. 25000 Y=39*A-10:FOR L=U TO 17:IF A(A,L)=O THEN RETURN
  409. 25010 X=16*L-V:LINE(X-U,Y)-(X+13,Y+15),O,BF:PR=A(A,L):GOSUB 10
  410. 25020 NEXT:RETURN
  411. 25100 Y=39*A-10:FOR L=U TO 17:IF A(A,L)=O THEN RETURN
  412. 25110 X=16*L-V:LINE(X-U,Y)-(X+13,Y+15),C4,BF
  413. 25120 NEXT:RETURN
  414. 30000 Z=FRE(0):Z=FRE(Z$):FOR I=U TO V:FOR J=U TO 17:IF A(I,J)=O THEN 30040
  415. 30010 IF I<V THEN X=16*J-V:Y=39*I-10:PR=A(I,J):LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10
  416. 30020 IF A(I,J)=A(I,J+2) AND A(I,J)>27 THEN W(I)=W(I)+10
  417. 30030 NEXT J
  418. 30040 NEXT I:FOR I=U TO V:A$=INKEY$:NEXT
  419. 30050 FOR J=U TO 3:FOR K=U TO 5:PO=O:IF K=2 OR K=V OR K=5 THEN PO=U
  420. 30060 IF MK(J,K)>O THEN Y=39*J-10-18*(U-PO):FOR L=U TO V:X=16*(19-V*(K-INT(K/2))+L)-36:LINE(X-U,Y)-(X+13,Y+15),0,BF:PR=MK(J,K):GOSUB 10:NEXT L
  421. 30070 NEXT K,J
  422. 30080 FF=O:IF S>56 THEN FF=U:N=O:GOTO 30400
  423. 30090 Y=39*C-28:LINE(12,Y)-(74,Y+15),0,BF
  424. 30100 Z=FRE(0):AX=AA:FOR I=U TO V:Q(I)=F(I):NEXT
  425. 30110 IF A=C THEN 30200
  426. 30120 IF AX<>A AND AX<>C THEN AS=O
  427. 30130 B=ZX:B1=C(A):B2=28
  428. 30140 IF ZX>27 THEN W(C)=W(C)+10
  429. 30150 IF AA=A*U THEN W(C)=W(C)+10
  430. 30160 IF AA=C THEN W(C)=W(C)+10:AA=AA-U
  431. 30170 F(C)=F(C)+W(C)+20+AS*10:F(A)=F(A)-W(C)-20-AS*10
  432. 30180 AS=AS+U:IF AX<>C THEN AS=O
  433. 30190 GOTO 30300
  434. 30200 Z=FRE(0):Z=FRE(Z$):FOR K=U TO 17:IF A(A,K)=B(S) THEN B=B(S):GOTO 30250
  435. 30210 NEXT K
  436. 30250 B1=K:B2=10
  437. 30260 IF AA=C THEN W(A)=W(A)+10:AA=AA-U:GOTO 30280
  438. 30270 F(AA)=F(AA)-10-AS*10:F(A)=F(A)+10+AS*10:AS=O
  439. 30280 FOR I=U TO V:F(I)=F(I)-W(A)-20-AS*10:F(A)=F(A)+W(A)+20+AS*10:NEXT
  440. 30290 AS=AS+U:IF AX<>C THEN AS=O
  441. 30300 I=FRE(0):I=U
  442. 30310 IF I=U OR I=3 THEN VP=23:HP=(I-U)/2
  443. 30320 IF I=2 OR I=V THEN VP=24:HP=(I-2)/2
  444. 30330 T=F(I)-Q(I)
  445. 30340 IF T=O THEN 30370
  446. 30350 IF T>O THEN LOCATE VP,HP*21+13:PRINT T;:LOCATE VP,HP*21+13:PRINT "+";:GOTO 30370
  447. 30360 LOCATE VP,HP*21+13:PRINT T;
  448. 30370 LOCATE U,U:IF I<V THEN I=I+U:GOTO 30310
  449. 30400 GOSUB 40850:IF A=C AND FF=O THEN X=25:Y=39*A-28:GOSUB 40700:GOTO 30420
  450. 30410 IF FF=O THEN X=19:Y=39*C-24:GOSUB 40800
  451. 30420 IF FF=O THEN X=16*B1-V:Y=39*A-B2:PR=B:GOSUB 10:GOSUB 10
  452. 30430 IF INKEY$="" THEN 30420
  453. 30440 AA=AA+U:IF S>56 THEN AA=AA-U:AS=AS+U
  454. 30450 IF AA>V THEN AA=AA-V:CI=CI+U
  455. 30460 A=AA:GOTO 500
  456. 31000 Z=FRE(Z):Z=FRE(Z$):IF ZX>27 THEN 31100
  457. 31010 K=J+U:IF A(C,J+2)=ZX THEN K=J+2
  458. 31020 IF A(C,J)-A(C,J-U)>U OR A(C,J-U)<M1 OR A(C,J-U)=O THEN 31060
  459. 31030 L=U:IF A(C,J)-A(C,J-2)>2 OR A(C,J-2)<M1 OR A(C,J-2)=O THEN L=L-U
  460. 31040 L=L+U:IF A(C,K+U)-A(C,K)>U OR A(C,K+U)>N1 OR A(C,K+U)=O THEN 31080
  461. 31050 L=L+U:R=U
  462. 31060 IF A(C,K+2)-A(C,K)>2 OR A(C,K+2)>N1 OR A(C,K+2)=O THEN R=R-U
  463. 31070 R=R+U
  464. 31080 IF L>U OR R>U THEN 3000
  465. 31100 P=2:IF A(C,J)=ZX AND A(C,J+U)=ZX AND A(C,J+2)=ZX THEN P=3
  466. 31120 Y=39*A-24:LINE(0,Y)-(7,Y+6),O,BF
  467. 31130 X=16*C(A)-V:Y=39*A-28:C(A)=C(A)-U:IF A=V THEN LINE(X-U,Y)-(X+13,Y+15),C4,BF ELSE LINE(X-U,Y)-(X+13,Y+15),C1,BF
  468. 31140 X(C)=X(C)+U:IF X(C)=5 THEN PX(C)=PX(C)+U:PY(C)=O:GOTO 31200
  469. 31150 IF X(C)/2=INT(X(C)/2) THEN PY(C)=O:GOTO 31200
  470. 31160 PX(C)=PX(C)+U:PY(C)=U
  471. 31200 A=C:GOSUB 41100:Z=FRE(0)
  472. 31210 P(C,X(C))=ZX:IF ZX>27 THEN W(C)=W(C)+10
  473. 31220 IF P=3 THEN X=16*(19-V*PX(C)+V)-84:Y=39*C-(18*PY(C))-10:PR=ZX:SOUND 250,.5*SO:LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10
  474. 31230 Z=FRE(0):Y=39*C-(18*PY(C))-10:FOR K=O TO 2:X=16*(19-V*PX(C)+K+U)-20:PR=ZX:LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10:SOUND 300+K*50,.5*SO:NEXT
  475. 31240 FOR L=J TO 17:A(C,L)=A(C,L+P):NEXT
  476. 31250 IF P=3 THEN S=S+U:GOTO 2150
  477. 31260 FOR J=U TO 17:S(J)=A(C,J):NEXT
  478. 31270 GOSUB 10000:GOSUB 19000:IF P1=U THEN S=S+U:GOTO 2150
  479. 31280 GOTO 2400
  480. 32000 Z=FRE(Z):Z=FRE(Z$):XE=U:IF (E(U)+E(3)+ZX)/3<>INT((E(U)+E(3)+ZX)/3) THEN XE=V:RETURN
  481. 32010 Y=39*A-24:LINE(0,Y)-(7,Y+6),O,BF:X=16*C(A)-V:Y=39*A-28:C(A)=C(A)-U:IF A=V THEN LINE(X-U,Y)-(X+13,Y+15),C4,BF ELSE LINE(X-U,Y)-(X+13,Y+15),C1,BF
  482. 32020 A=C:GOSUB 41100
  483. 32030 Z=FRE(0):FOR J=U TO 16:IF A(C,J)=E(U) GOTO 32050
  484. 32040 NEXT
  485. 32050 FOR K=J TO 16:A(C,K)=A(C,K+U):NEXT K
  486. 32060 Z=FRE(0):FOR J=U TO 16:IF A(C,J)=E(3) GOTO 32080
  487. 32070 NEXT
  488. 32080 FOR K=J TO 16:A(C,K)=A(C,K+U):NEXT K
  489. 32090 E(2)=ZX:Z=FRE(0):Z=FRE(Z$)
  490. 32100 X(C)=X(C)+U:IF X(C)=5 THEN PX(C)=PX(C)+U:PY(C)=O:GOTO 32130
  491. 32110 IF X(C)/2=INT(X(C)/2) THEN PY(C)=O:GOTO 32130
  492. 32120 PX(C)=PX(C)+U:PY(C)=U
  493. 32130 Z=FRE(Z$):Z=FRE(0):Y=39*C-(18*PY(C))-10:FOR J=1 TO 3:X=16*(19-V*PX(C)+J)-20:PR=E(J):SOUND PR*100,U*SO:SOUND 300*J,U*SO:LINE(X-U,Y)-(X+13,Y+15),O,BF:GOSUB 10:NEXT
  494. 32140 FOR J=U TO 16:S(J)=A(C,J):NEXT
  495. 32150 GOSUB 10000:GOSUB 19000:IF P1=U THEN S=S+U:GOTO 2150
  496. 32160 RETURN
  497. 40000 CA$="d14 g1 bm+4,-1 u6 r2 l5 u3 r5 l2 u4 bm+9,-1 g3 r6 d4 l8 u4 r4 d4 u2 r3 l7 bm+3,+3 g3 l1 bm+3,-0 r6 l3 u2 d6"
  498. 40010 CB$="d1 g3 e1 r1 d12 bm+2,-11 e1 u1 e1 u1 d1 f1 r7 f1 g1 bm-4,-0 d10 g1 l1 bm-1,-8 d3 g1 bm+8,-0 h1 u3"
  499. 40020 CC$="l12 r3 d6 r10 u4 l14 d4 r10 u6 bm-3,+7 d1 nr7 nl7 g2 f5 r2 bm-10,-0 r2 e7"
  500. 40030 CD$="r2 nr2 nu3 d11 g1 l1 bm-0,-4 e4 bm+4,-5 e2 f2 g1 l1 d1 l4 d4 u1 r1 e1 u2 r6 d4 u1 l1 h1 u2 bm-2,+5 d1 nr5 nl5 ng5 f5"
  501. 40040 CE$="d4 r3 u4 l2 bm+14,-5 l9 g1 d2 nr10 d3 nr10 d2 f1 r5 nu9 r4 f1 d4 g1 l2 bm+1,-2 u2 bm-3,-0 d2 bm-3,-0 u2 bm-3,-0 d1 g1"
  502. 40050 CF$="r6 l3 u3 d9 r2 d4 l4 u4 r2 bm+4,+5 e2 u13 r6 d5 nl6 d5 nl6 d4 g1 l1"
  503. 40060 CG$="r4 d4 l4 d4 r3 f1 d4 g2 h1 bm+13,-14 l6 d3 nr5 d2 nr5 d2 r7 l10 r2 d7 f1 e1 bm-2,-7 f8 h4 e2
  504. 40099 RETURN
  505. 40100 SOUND 200,2*SO:PSET(290,30),3:DRAW"r6 l3 nu3 d11 g1 h1 bm-1,-3 e5 bm+4,-5 r7 l3 d13 g1 l2 h1 bm-8,+30 xca$;":LOCATE 14,38:PRINT "!":RETURN
  506. 40200 SOUND 150,1*SO:PSET(305,12),3:DRAW"xcc$; bm-12,+15 xcd$; bm-14,+5 r6 d4 l6 u3 bm+2,+4 d6 g1 d1 g2 bm-0,-8 r8 d6 g2 h1 bm+7,-4 u4 bm+3,-6 d14 g1 h1 bm-13,+6 xcg$; bm-14,+16 xce$;":LOCATE 15,38:PRINT "?";:RETURN
  507. 40300 SOUND 300,4*SO:PSET(294,10),3:DRAW"xcb$; bm+1,+19 xcc$; bm-12,+21 r2 nr2 nu3 d11 g1 l1 bm+0,-4 u4 bm+4,-0 d4 bm+4,-11 r6 l3 d2 r4 l8 bm+1,+2 r6 d7 l6 u6 d1 nr5 d3 r5 bm-1,+4 f2 r1 bm-8,+0 r1 e2 bm-10,+18 xce$;":LOCATE 15,38:PRINT "?";:RETURN
  508. 40400 SOUND 300,4*SO:PSET(294,10),3:DRAW"xcb$; bm+1,+19 xcc$; bm-12,+19 r5 l2 d2 g1 d2 g1 d2 g1 d3 bm+2,-0 r2 u3 l2 d2 bm+6,-12 r1 f1 bm+2,-0 e1 r1 bm+0,+3 l6 r2 d11 l3 r8 l3 u11 bm+3,+6 g1 d2 bm-6,-0 u2 h1 bm-7,+21xce$;":LOCATE 15,38:PRINT "?";:RETURN
  509. 40500 SOUND 300,4*SO:PSET(294,10),3:DRAW"xcb$; bm+1,+14 xcc$; bm-12,+18 d4 r3 u4 l2 bm+3,-1 e1 u1 e1 u1 bm+1,+2 r8 bm-7,+2 r4 f1 g8 d1 f1 r9 e1 u2 bm-15,+9 xca$; bm-13,+10 xce$;":LOCATE 15,38:PRINT "?";:RETURN
  510. 40600 SOUND 300,1*SO:PSET(294,10),3:DRAW"xcb$; bm+1,+14 xcc$; bm-12,+17 xcf$; bm-12,+6 xca$; bm-13,+11 xce$;":LOCATE 15,38:PRINT "?";:SOUND 300,5*SO:RETURN
  511. 40700 PSET(X,Y),3:DRAW"g3 r9 d12 l10 u12 nr1 d4 nr9 d4 r9 bm+16,-8 r2 nr2 u3 d14 g1 l1 bm-1,-3 e5 bm+2,-6 r4 l2 u1 d2 bm+6,-0 u2 d1 l2 r4 bm-0,+3 d4 l10 u4 r10 d2 l10 bm+5,+4 ng5 nf5 d1 nr5 l5"
  512. 40710 IF S$<>"n" AND S$<>" " THEN PLAY"mbt160l4o2ag8e8ag8e8a8ag8ap4ag8e8ag8e8d8dc8dp4ee8g8a6o3c12o2a12g8e8eg8cp4ee8e8eeo1a8ag8at120
  513. 40720 RETURN
  514. 40800 PSET(X,Y),3:DRAW"xcf$; bm+17,-15 xca$;"
  515. 40810 IF S$<>"n" AND S$<>" " THEN PLAY"mbt220l4o3ccce2d8ceeeg2f8egfed2p4d2c8o2b8o3cdef2e8d8efgg12f6edc2t120
  516. 40820 RETURN
  517. 40850 PSET(292,15),3:DRAW"r14 l7 d7 nl5 nr5 d4 nr7 l7 r2 d4 u12 r10 d11 g1 h1 bm-10,+17 r14 l7 u2 d14 g1 h1 bm-5,-8 e3 g1 f2 bm+6,-0 e3 g1 f2 bm-7,+0 nf7 ng7 bm-8,+24 r15 bm-13,+15 r11 d4 l11 u4 d9 g1 d2 g1 d2 bm+2,-9 r12 f1 d7 g1 h1 bm-2,-2 u4 l6 d4 r6
  518. 40860 LOCATE 15,37:PRINT "? !";:RETURN
  519. 40900 PSET(291,15),3:DRAW"r14 d10 l14 u10 r7 nu5 d5 nr7 nl7 d5 bm-7,+5 r8 d5 nl8 d4 nl8 d3 g1 d1 g1 l1 h1 bm-1,-14 d9 g1 d2 g1 d1 g1 bm+10,-15 r5 d1 g2 f2 d4 g1 l1 h3 u7 d15 bm-10,+5 xcg$; bm-13,+11
  520. 40901 DRAW"r6 d3 nl5 d3 l6 u6 d15 bm+15,-15 l6 d3 nr5 d3 r6 u6 d15 bm-3,-7 l2 nd7 l7 r2 d3 nr8 nl3 d2 g2 bm+1,+5 d1 g1 d1 g1 d1 g1 d1 g1 f1 d1 f2 d1 f2 bm+1,-12 d1 g1 nr2 nl6 d1 g1 d1 g1 d1 g1 d1 g1 d1 g1 bm+13,-15 d2 g5 d2 r7 u1 h1 bm-0,+4 d4 l5 u4 r5
  521. 40902 LOCATE 15,38:PRINT "?";
  522. 40910 RETURN
  523. 41000 PSET(291,40),3:DRAW"r3 nr3 u1 d3 l3 d4 r6 u4 l3 d2 nr3 nl3 d4 nr3 nl3 d1 bm+12,-10 g1 l1 g1 l2 d2 r4 nr2 nd6 l4 d4 g2 bm+4,+2 l9 d4 r9 u2 nl9 u2 bm-10,+20 d1 g3 e1 f1 d12 bm+9,-16 d2 nl5 nr5 bm-3,+2 d2 r6 u2 l6 bm-3,+5 u1 r12 d1"
  524. 41001 DRAW"bm-3,+1 l6 r3 d5 g1 l1 h1":LOCATE 14,38:PRINT "!";:RETURN
  525. 41100 PSET(O,A*39-24),3:DRAW"d6 e1 u4 r1 d4 e1 u2 r1 d2 e1 r1":RETURN
  526. 49990 A=AA:Z=FRE(0):GOTO 500
  527. 50000 IF CI>O THEN 50240
  528. 50010 U=1:A=U:AA=U:V=4:LA=72:GOSUB 40000:IF INKEY$=" " THEN A$="1"
  529. 50020 IF A$="0" THEN PLAY"c4.de4.ff.gg2e4g4f4.ef.dc2p4ggo3"
  530. 50030 LOCATE 16,12:PRINT "..... Welcome .....":IF INKEY$=" " THEN A$="1"
  531. 50040 IF A$="0" THEN PLAY"c4.o2ba.gg4.e4ggf4.ef4d4e2g"
  532. 50050 LOCATE 16,12:PRINT "                   ":IF A$="0" THEN PLAY"g"
  533. 50060 LOCATE 16,11:PRINT "for  MPF  &  IBM  PC":IF INKEY$=" " THEN A$="1"
  534. 50070 IF A$="0" THEN  PLAY"o3c4.o2ba.gg2e4ggf4.ef4d4c2"
  535. 50080 IF INKEY$=" " THEN A$="1"
  536. 50090 IF A$="0" THEN  PLAY"p4g1f2d2c2d2e2p4g4o3c4.o2ba.gg2e4gg"
  537. 50100 LOCATE 16,11:PRINT "                    ":IF INKEY$=" " THEN A$="1"
  538. 50110 IF A$="0" THEN PLAY"f4."
  539. 50120 LOCATE 16,V:PRINT "Copyright 3rd Wave Publishing Corp.":IF INKEY$=" " THEN A$="1"
  540. 50130 IF A$="0" THEN PLAY"ef4d4c1"
  541. 50140 LOCATE 23,7:PRINT "Strike any key when ready !!"
  542. 50150 A$=INKEY$:IF A$="" THEN 50150
  543. 50160 LOCATE 22,1:PRINT "< Set >":LOCATE 23,7:PRINT "    1.  Sound  ( Y/N ) ?    ";:S$=INKEY$:IF S$="" THEN LOCATE 23,15:PRINT "     ":GOTO 50160
  544. 50170 IF S$<>"y" AND S$<>" " AND S$<>"n" THEN SOUND 500,2:GOTO 50160
  545. 50180 LOCATE 23,9:PRINT "2.  Direction  ( Y/N ) ? ";:Q$=INKEY$:IF Q$="" THEN LOCATE 23,13:PRINT "         ":GOTO 50180
  546. 50190 IF Q$<>"y" AND Q$<>" " AND Q$<>"n" THEN SOUND 500,2:GOTO 50180
  547. 50200 IF S$="y" THEN SO=U ELSE SO=O
  548. 50210 LOCATE 23,9:PRINT "  3.  Color  ( Y/N ) ?     ";:C$=INKEY$:IF C$="" THEN LOCATE 23,15:PRINT "     ":GOTO 50210
  549. 50220 IF C$<>"y" AND C$<>" " AND C$<>"n" THEN SOUND 500,2:GOTO 50210
  550. 50230 IF C$="y" THEN C1=U:C4=2
  551. 50240 CLS:Z=FRE(0):IF C1=O THEN FOR I=U TO 3:LINE(10,(I-U)*39+9)-(284,I*39+7),2,B:NEXT:LINE(10,126)-(318,173),3,B:GOTO 50260
  552. 50250 FOR I=U TO 3:LINE(10,(I-U)*39+9)-(284,I*39+7),U,BF:NEXT:LINE(10,126)-(318,173),2,BF
  553. 50260 LOCATE 4:PRINT "E":LOCATE 9:PRINT "S":LOCATE 14:PRINT "W":LOCATE 19:PRINT "N"
  554. 50270 PSET(149,178),3:DRAW"f5 e5 f5 g6 l8 h6 e5 d1 f5 e5 f4 g6 l6 h6 e4 d1 f5 e5 f3 g5 l6 h5 e3
  555. 50280 LOCATE 23,3:PRINT"E:"F(U);:LOCATE 23,24:PRINT "W:"F(3);:LOCATE 24,3:PRINT "S:"F(2);:LOCATE 24,24:PRINT "N:"F(4);:LOCATE 1,V:PRINT "< 56 >":LOCATE 1,12:PRINT CI"- ";
  556. 50290 IF AA=U THEN PRINT "E";
  557. 50300 IF AA=2 THEN PRINT "S";
  558. 50310 IF AA=3 THEN PRINT "W";
  559. 50320 IF AA=V THEN PRINT "N";
  560. 50330 PRINT " - ("AS")";:PSET(258,U),3:IF Q$="y" THEN DRAW"c2 r14 d6 l14 u6 bm+3,+3 c3 r8 h2 l1 f2 g2 r1 e2" ELSE LOCATE 1,33:PRINT CHR$(2);:Q$="n"
  561. 50340 PSET(232,7),3:IF S$="y" THEN DRAW"r1 e1 l2 r2 u6 r6 d2 nl6 d3 l2 d1 r1" ELSE LOCATE 1,30:PRINT CHR$(2)
  562. 50350 LINE(13,164)-(280,170),O,BF
  563. 50360 PSET(18,164),3:DRAW "g1 r1 d5 l1 r2 bm+13,-5 e1 r2 f1 d1 g1 l1 g2 d1 r4 bm+12,-5 e1 r2 f1 d1 g1 l1 r1 f1 d1 g1 l2 h1 bm+16,-2 e3 d6 bm-3,-2 r4 bm+12,+1 f1 r2 e1 u2 h1 l3 u2 r4 bm+13,+3 r2 f1 d1 g1 l2 h1 u4 e1 r2 f1 bm+12,-1 r4 d1 g4 d1 bm+17,-0 r2
  564. 50370 DRAW"e1 u1 h1 e1 u1 h1 l2 g1 d1 f1 r2 l2 g1 d1 f1 bm+16,-0 r1 e2 u3 h1 l2 g1 d1 f1 r2 bm+13,+2 f1 r2 e1 u4 h1 l2 g1 d4 e3 bm+13,-2 r4 d1 g4 d1 r4 bm+12,-0 u1 e4 u1 bm-4,-0 d1 f4 d1 bm+16,-1 g1 l2 h1 u4 e1 r2 f1 bm+12,-1 d4 f2 e2 u4
  565. 50380 DRAW"bm+12,-0 d6 r3 e1 u1 h1 l2 r2 e1 u1 h1 l2 bm+15,+6 u6 d1 f4 d1 u6 bm+12,+6 u6 f2 d1 u1 e2 d6
  566. 50390 PSET(293,16),3:DRAW"r1 bm+2,+3 l5 bm+1,+3 r3 bm+0,+3 l3 bm+0,+3 r3 d3 l3 u2 bm+7,-11 r6 l3 u2 d4 nl3 nr3 d2 nl4 nr4 bm+3,+2 d7 l1 bm-6,+0 e1 u2 nr5 u2 nr5 u2 r6 bm-13,+29 r1 e2 g2 f1 d2 nl3 nr3 d9 g1 l1 bm-1,-3 e1 u3 bm+4,+0 d3 f1 bm+3,-11 f1 d1
  567. 50400 DRAW"bm+2,-3 d3 bm+2,+0 u1 e1 bm-1,+14 r1 u10 l6 d3 nr5 d3 nr5 d3 g1 bm-5,+20 d1 g3 e1 f1 d11 bm+3,-5 u4 bm+4,-5 r4 d3 r2 l8 bm+2,+1 d1 g2 e1 r6 l3 d3 nr4 nl4 ng5 f5":LOCATE 15,38:PRINT "!";
  568. 50410 IF CI>O THEN 50450
  569. 50420 DIM B(136),R(136),S(22),Z(17),A(V,22),MK(V,5),P(V,5),A$(17)
  570. 50430 X=U:Y=0:FOR I = U TO 136:R(I)=X:Y=Y+U:IF Y=V THEN X=X+U:Y=0
  571. 50440 NEXT:CI=U:N=ASC(A$):FOR I=U TO 17:READ A$:A$(I)=A$:NEXT
  572. 50450 FOR I=U TO 4:FOR J=U TO 5:C(I)=O:W(I)=O:X(I)=O:P(I,J)=O:MK(I,J)=O:PX(I)=O:PY(I)=O:NEXT J,I
  573. 50460 N=N+VAL(RIGHT$(TIME$,2))+VAL(MID$(TIME$,4,2))+F(A): RANDOMIZE(N)
  574. 50470 FOR I=136 TO U STEP -U:R = INT(RND*I+U):B(I)=R(R):T=R(R):R(R)=R(I):R(I)=T:NEXT
  575. 50480 K=73:FOR I=U TO V:FOR J=U TO 16:A(I,J)=B(K):K=K+U:NEXT J,I
  576. 50490 FOR I=U TO V:FOR J=U TO 15:FOR K=J+U TO 16:IF A(I,J)>A(I,K) THEN T=A(I,J):A(I,J)=A(I,K):A(I,K)=T
  577. 50500 NEXT K,J,I
  578. 50510 DATA 1,2,3,4,5,6,7,8,9,0,z,x,c,v,b,n,m
  579. 50520 A1=A:A=V:GOSUB 25000
  580. 50530 LOCATE 1,12:PRINT CI
  581. 50540 A=A1:LINE(285,9)-(319,124),0,BF:RETURN
  582. 60000 CLS:SCREEN 1,0:COLOR 0,1:CLEAR ,,15000:ON ERROR GOTO 49990
  583. 60005 DIM F1(17),F2(17),F3(17),F4(17),F5(17),F6(17),F7(17),F8(17),F9(17),F10(17),F11(17),F12(17),F13(17),F14(17),F15(17),F16(17),F17(17),F18(17),F19(17),F20(17)
  584. 60010 DIM F21(17),F22(17),F23(17),F24(17),F25(17),F26(17),F27(17),F28(17),F29(17),F30(17),F31(17),F32(17),F33(17),F34(17),F35(12)
  585. 60015 A$="0":IF INKEY$=" " THEN A$="1"
  586. 60020 IF A$="0" THEN PLAY"mbl8o2c.de4.ff.gg2e4g4f4.ef4dde2
  587. 60025 FOR I=1 TO 4:LINE(68+I,35+I)-(251-I,70-I),2,B:NEXT
  588. 60030 X=90 : Y=43: PSET (X,Y),0 : DRAW "c3 bm+9,+1 nu1 nl8 nr8 d2 nl6 r6 bm-1,+2 l10 d2 r10 u1 bm-14,+5 u2 r18 d1 g1 bm-2,+0 l12 r4 g3 r10 nh1 nf1 l5 d3 nl4 nr4 d2 nl9 r9
  589. 60040 X=130:PSET (X,Y),3:DRAW "f3 bm+0,+6 h3 bm+0,+12 f1 e1 u1 e1 u1 e1 u1 e1 bm+1,+6 f1 r10 e1 u1 h1 l10 u2 r10 u2 l10 bm+0,-12 g2 f1 r1 ne2 g2 d1 r4 nu1 l2 d1 ng2 nf2 d3 bm+4,-10 r2 bm+2,+2 nl5 ne2 f1 r1 ne2 g2 d1 r4 nu1 l2 d1 ng2 nf2 d3"
  590. 60050 DRAW"bm-3,+0 u2 l4 d2 r4 bm-1,-4 l2 bm+0,-2 r2
  591. 60060 X=170:PSET (X,Y),0:DRAW "bm+8,+0 c3 r1 f3 nr7 l10 d9 g1 d4 g1 d1 bm+4,-12 r3 nu2 nr3 d11 g1 l1 bm-1,-4 u2 e1 u2 bm+4,+0 d2 f1 d2 bm+3,+0 u2 e1 u2 bm+2,-3 nu2 nl3 nr3 d11 g1 l1 bm+4,-9 d2 f1 d2
  592. 60070 X=210:PSET (X,Y),0:DRAW "bm+2,+2 c3 d5 nl1 r4 nu7 d3 nd9 l6 r2 d4 g1 d1 g1 d1 bm+8,-14 r1 e1 r1 e1 r1 e2 g1 f1 r4 g2 l1 g1 l1 nh1 g2 l1 nh2 g1 l2 bm+0,+2 r8 nu2 nr3 d8 g1 l1 h1 bm-1,-4 h2
  593. 60080 PSET(79,87),3:DRAW"d1 g3 e1 f1 d11 bm+2,-11 e1 u1 e1 u1 d1 f1 r8 l6 d4 nr4 d4 nr4 d5 bm+23,-13 r8 l4 u2 d5 l7 r15 l5 ne2 l1 g8 l1 bm+10,-6 r1 bm+0,+2 l5 d6 r5 u3 nl4 u3 bm+18,+1 d1 r1 u1 bm+0,-5 l1 d1 r1
  594. 60085 DRAW"bm+20,-5 r4 f1 g2 f2 d2 g1 l1 h2 u6 d14 bm+6,-1 u1 e1 u2 bm+6,+0 d2 f1 d1 bm-6,+1 r1 e1 u6 l4 u4 r8 d4 l4 u2 nl3 nr3 u6 d2 l4 r8 bm+22,+0 d2 bm+4,+0 u2 bm-2,-2 d6 nl2 nr2 d9 bm-3,-2 e1 u4 bm+4,+0 d4 f1 bm+2,+2 e1 u6 r4 d2 nl3 d2 nl3 d3
  595. 60090 DRAW"bm+2,-9 l8 r4 u2 nr2 nl2 u2 nl2 nr2 u2 bm+27,+1 f1 r1 bm+1,+2 l5 bm+1,+2 r3 bm+0,+2 l3 bm+0,+2 r3 d4 l3 u4 bm+5,+5 e1 u11 r8 l3 u3 d8 f1 d2 ne2 ng3 d1 f1 d1 f1 e1 bm-1,-13 l1 bm-6,+5 r2 d4 g1 h1
  596. 60095 FOR I=0 TO 1:PSET(35+240*I,2),3:DRAW"f5 e5 f5 g6 l8 h6 e5 d1 f5 e5 f4 g6 l6 h6 e4 d1 f5 e5 f3 g5 l6 h5 e3":NEXT
  597. 60400 W$="h1 d1 l5 h1 d1 l1 r4 d2 r4 d3 u3 l8 d3 u3 r4 d3 l2 r4 u1
  598. 60410 X=3:Z=18:Y=0:LINE (X+1,Y)-(X+11,Y+15),3,BF : LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-10,-11 r8 bm+0,+6 xw$;":GET(X,Y)-(X+12,Y+15),F10
  599. 60440 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-9,-12 r6 bm+1,+3 l8 bm+8,+4 xw$;":GET(X,Y)-(X+12,Y+15),F11
  600. 60470 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-9,-12 r6 bm-1,+2 l4 bm-2,+2 r8 bm+0,+3 xw$;":GET(X,Y)-(X+12,Y+15),F12
  601. 60500 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-10,-13 r8 d5 l8 u5 r2 d3 l1 r1 u3 r3 d3 r3 bm+0,+5 xw$;":GET(X,Y)-(X+12,Y+15),F13
  602. 60530 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-9,-13 g3 e1 r1 d3 bm+3,-5 r5 l3 d2 l1 r3 d3 r2 l7 r1 e2 bm+3,+5 xw$;":GET(X,Y)-(X+12,Y+15),F14
  603. 60560 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-9,-12 r6 l3 u1 bm-2,+3 d1 g1 bm+5,-2 f1 d1 bm+1,+3 xw$;":GET(X,Y)-(X+12,Y+15),F15
  604. 60590 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-10,-11 r6 l4 u2 d5 r6 u1 bm+0,+4 xw$;":GET(X,Y)-(X+12,Y+15),F16
  605. 60620 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-9,-12 d3 g1 bm+3,-5 r1 f4 d1 bm+0,+3 xw$;":GET(X,Y)-(X+12,Y+15),F17
  606. 60650 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-9,-12 r5 d4 r3 u1 bm-6,-4 d3 g2 l1 bm+8,+3 xw$;":GET(X,Y)-(X+12,Y+15),F18
  607. 60700 X=304:Y=0:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-10,-11 r1 e2 r2 f1 l2 d1r2 l4 d1 r3 g1 l1 d1 r1 f1 r3 l6 g1 r8 d1 l1 bm-7,+0 r3 g1 r6 d1 l2 d1 r2 g1 l4 f1 r2 l7":GET(X,Y)-(X+12,Y+15),F19
  608. 60730 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW "c0 bm-7,-13 r3 g1 d3 f1 l3 e1 u3 bm-1,+7 r3 g1 d3 f1 l3 e1 u3":GET(X,Y)-(X+12,Y+15),F20
  609. 60760 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW "c0 bm-7,-13 r2 g1 d3 f1 l2 bm-4,+3 r2 g1 d3 f1 l2 bm+8,+0 r2 h1 u3 e1 l2":GET(X,Y)-(X+12,Y+15),F21
  610. 60790 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW "c0 bm-11,-13 r2 g1 d3 f1 l2 bm+8,-5 r2 g1 d3 f1 l2 bm-8,+8 r2 h1 u3 e1 l2 bm+8,-0 r2 g1 d3 f1 l2":GET(X,Y)-(X+12,Y+15),F22
  611. 60820 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-11,-13 r2 g1 d3 f1 l2 bm+8,-5 r2 g1 d3 f1 l2 bm-8,+8 r2 h1 u3 e1 l2 bm+8,-0 r2 g1 d3 f1 l2 bm-4,-9 r2 g1 d3 f1 l2":GET(X,Y)-(X+12,Y+15),F23
  612. 60850 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-11,-13 r2 g1 d3 f1 l2 bm+4,-5 r2 g1 d3 f1 l2 bm+4,-5 r2 g1 d3 f1 l2 bm-8,+3 r2 g1 d3 f1 l2 bm+4,-5 r2 g1 d3 f1 l2 bm+4,-5 r2 g1 d3 f1 l2":GET(X,Y)-(X+12,Y+15),F24
  613. 60880 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B
  614. 60890 DRAW "c0 bm-11,-8 r2 g1 d1 f1 l2 bm+4,-3 r2 g1 d1 f1 l2 bm+4,-3 r2 g1 d1 f1 l2 bm-8,+2 r2 g1 d1 f1 l2 bm+4,-3 r2 g1 d1 f1 l2 bm+4,-3 r2 g1 d1 f1 l2 bm-4,-13 r2 g1 d1 f1 l2":GET(X,Y)-(X+12,Y+15),F25
  615. 60910 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-11,-13 r1 d5 e4 f4 u5 r1 bm-10,+13 r1 u5 f4 e4 d5 r1":GET(X,Y)-(X+12,Y+15),F26
  616. 60940 Y=Y+Z:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-11,-13 d3 bm+5,+0 u3 r1 d3 bm+4,+0 u3 bm-10,+5 d3 bm+5,+0 u3 r1 d3 bm+4,+0 u3 bm-10,+5 d3 bm+5,+0 u3 r1 d3 bm+4,+0 u3":GET(X,Y)-(X+12,Y+15),F27
  617. 61000 X=64:Y=O:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-10,-9 r8 d4 l8 u4 bm+4,-3 d12":GET(X,Y)-(X+12,Y+15),F28
  618. 61030 X=94:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-9,-12 r2 d2 g2 nh2 g1 l1 bm+6,-2 nu3 r1 ne2 d1 r1 ne2 d1 f1 r1 l1 h1 g1 l4 r1 d2 nl2 nr4 d3 g1 l1 bm+4,-5 d5 r2 e1":GET(X,Y)-(X+12,Y+15),F29
  619. 61060 X=124:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-2,-1 l8 u11 r8 d11":GET(X,Y)-(X+12,Y+15),F30
  620. 61090 X=154:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-6,-11 nu2 nl3 nr3 d2 l4 d4 r8 u4 l4 d2 nl3 nr3 d2 ng5 d4 g1 l1 bm+2,-5 f5 r1":GET(X,Y)-(X+12,Y+15),F31
  621. 61120 X=184:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-8,-11 nl1 nr5 d5 g1 l1 u3 r8 d6 l8 u2 bm+5,-6 d5 r2":GET(X,Y)-(X+12,Y+15),F32
  622. 61150 X=214:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-6,-11 nu2 nl3 nr3 d3 bm+0,+3 d5 u3 nl2 nr2 bm-4,+3 u8 r2 d3 r4 u3 nl3 r2 d8 l1":GET(X,Y)-(X+12,Y+15),F33
  623. 61180 X=246:LINE(X,Y)-(X+8,Y+8),3,BF:GET(X-2,Y)-(X+8,Y+8),F35
  624. 61190 X=244:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-8,-9 nu2 nl2 d7 u1 l2 d1 bm+5,-5 nu4 ne3 d5 r3 e1 u1":GET(X,Y)-(X+12,Y+15),F34
  625. 61400 X=34:Y=144: LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-7,-10 r2 f1 l4 g1 r6 f1 l8 d1 r8 d1 l8 f1 r6 g1 l4 f1 r2":GET(X,Y)-(X+12,Y+15),F1
  626. 61430 X=64:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-7,-12 r2 f1 l4 d1 r4 d1 l4 f1 r2 bm+0,+3 l2 g1 r4 d1 l4 d1 r4 g1 l2":GET(X,Y)-(X+12,Y+15),F2
  627. 61460 X=94:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:D$="f1 l2 g1 r4 g1 l2 f1":DRAW"c0 bm-9,-13 xd$; bm+3,+1 xd$; bm+3,+1 xd$;":GET(X,Y)-(X+12,Y+15),F3
  628. 61500 X=124:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-9,-12 xd$; bm+0,+3 xd$; bm+6,-11 xd$; bm+0,+3 xd$;":GET(X,Y)-(X+12,Y+15),F4
  629. 61530 X=154:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-9,-13 xd$; bm+0,+5 xd$; bm+6,-13 xd$; bm+0,+5 xd$; bm-3,-9 xd$;":GET(X,Y)-(X+12,Y+15),F5
  630. 61560 X=184:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-9,-14 xd$; bm+0,+2 xd$; bm+0,+1 xd$; bm+6,-15 xd$; bm+0,+2 xd$; bm+0,+1 xd$;":GET(X,Y)-(X+12,Y+15),F6
  631. 61590 X=214:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:D$="r2 d1 l2 d1 r2":DRAW"c0 bm-11,-13 xd$; bm+2,+0 xd$; bm+2,+0 xd$; bm-3,+2 xd$; bm-2,+2 xd$; bm-8,-6 xd$; bm-2,+2 xd$;":GET(X,Y)-(X+12,Y+15),F7
  632. 61630 X=244:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-10,-13 xd$; bm-2,+2 xd$; bm-2,+2 xd$; bm-2,+2 xd$; bm+4,-14 xd$; bm-2,+2 xd$; bm-2,+2 xd$; bm-2,+2 xd$;":GET(X,Y)-(X+12,Y+15),F8
  633. 61660 X=274:LINE (X+1,Y)-(X+11,Y+15),3,BF:LINE (X,Y+1)-(X+12,Y+14),3,B:DRAW"c0 bm-11,-13 xd$; bm-2,+3 xd$; bm-2,+3 xd$; bm+2,-12 xd$; bm-2,+3 xd$; bm-2,+3 xd$; bm+2,-12 xd$; bm-2,+3 xd$; bm-2,+3 xd$;":GET(X,Y)-(X+12,Y+15),F9
  634. 62000 GOTO 500
  635.